home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
business
/
cntws11a.zip
/
GLJNLHST.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1997-02-17
|
10KB
|
94 lines
GLJNLHST
stomer in sele()
sele customer
if reccount()=0
append blank
endif
declare cus[reccount(),1]
copy to array cus field sub_code
use cashbook in sele()
sele cashbook
if reccount() = 0
append blank
endif
declare cbook[reccount(),1]
copy to array cbook field sub_code
use saleprod in sele() order prod_code
sele saleprod
if reccount() = 0
append blank
endif
declare sales[reccount(),1]
copy to array sales field prod_code
use stmaster i
ACT_CODE
SUB_CODE
FIRST_REF
return
PROCEDURE formclose && CENTWISE.ONCLOSE
*-----------------------------------------------------------------
* NAME
* ONCLOSE - Event handler for CENTWISE
*-----------------------------------------------------------------
sele customer
set order to sub_code
if seek(space(10))
dele all for isblank(sub_code)
pack
endif
sele creditor
set order to sub_code
if seek(space(10))
dele all for isblank(sub_code)
pack
endif
sele cashbook
set order to sub_code
if seek(space(2))
dele all for isblank(sub_code)
pack
endif
sele stmaster
set order to stock_code
if seek(space(10))
dele all for isblank(stock_code)
pack
endif
sele saleprod
set order to prod_code
if seek(space(10))
dele all for isblank(prod_code)
pack
endif
lvoid = centwise.release()
saf = set('safety')
set safety off
save to defaults.
set safety &saf.
close data
set print to
set print off
RETURN
procedure debts
do customer
return
procedure crdts
do creditor
return
procedure cshbks
do cashbook
return
PROCEDURE saleinv && DBMITEM1.ONCLICK
*-----------------------------------------------------------------
* NAME
* ONCLICK - Event handler for DBMITEM1
*-----------------------------------------------------------------
do invcapt
RETURN
ACT_CODE
ACT_CODE
SUB_CODE
SUB_CODE
FIRST_REF
FIRST_REF